home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
027a
/
ntxmeter.zip
/
NTXMET.NEW
next >
Wrap
Text File
|
1990-07-26
|
1KB
|
48 lines
FUNCTION ntxmeter
PARAMETERS keyer,_meterline
PRIVATE keyer,_meterline,_percent
SET Cursor OFF
* increment in tens or 100s
inc = IIF(RECCOUNT() < 100,10,100)
IF .NOT. EOF()
IF (EMPTY(INDEXKEY(Indexord()))) .AND. (EMPTY(INDEXKEY(1)))
IF RECNO()%inc = 0 .OR. (LASTREC() - RECNO()) < inc
* numeric counter number
@ _meterline-02,45 SAY STR(RECNO(),LEN(LTRIM(STR(Lastrec()))))
* moving meter bar routine
_percent = RECNO()/Lastrec()*60
@ _meterline,10 SAY REPLICATE('█',_percent)
Setcolor(tmpcolor)
ENDIF
ENDIF
ENDIF
RETURN keyer
FUNCTION meterbox
PARAMETERS boxline,indexnum,numindex
PRIVATE boxline,length
@ boxline+03,20 TO boxline+03,75 DOUBLE
* draw meter borders and labels
@ boxline-01,09 TO boxline+1,70
@ boxline+00,10 SAY REPLICATE('░',60)
length = LEN(LTRIM(STR(Lastrec())))
LINE = 'Records Completed : '+SPACE(length)+'/'+LTRIM(STR(Lastrec()))
@ boxline-02,25 SAY LINE
LINE = 'Creating Index Number '+STR(indexnum,2)+' of '+STR(numindex,2)
@ boxline+02,25 SAY LINE
line = 'Indexing '+DBF()+' Database on '+UPPER(SUBSTR(INDEXKEY(0),AT('(',INDEXKEY(0))+1,AT(',',INDEXKEY(0))-AT('(',INDEXKEY(0))-1))
center = (40-LEN(line)/2)
@ boxline+03,center SAY line
@ boxline+02,47 SAY STR(indexnum,2)
RETURN ''